Fix edebug spec for minibuffer-with-setup-hook

* lisp/files.el (minibuffer-with-setup-hook): Instrument the
:append form for edebug (bug#46531).

diff --git a/lisp/files.el b/lisp/files.el
index 9ff8f31e374f876e708aea9c1ef24f01e3b1f7d1..68e883513cb00063b609a4af77b71db295c979c6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1639,7 +1639,7 @@ called additional times).
 
 This macro actually adds an auxiliary function that calls FUN,
 rather than FUN itself, to `minibuffer-setup-hook'."
-  (declare (indent 1) (debug t))
+  (declare (indent 1) (debug ([&or (":append" form) [&or symbolp form]] body)))
   (let ((hook (make-symbol "setup-hook"))
         (funsym (make-symbol "fun"))
         (append nil))